home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / ms_dos / tool / fapxtool / src / txl / txldir3.c < prev    next >
C/C++ Source or Header  |  1994-09-30  |  5KB  |  228 lines
  1. /***************
  2. *
  3. * g:\exe\txf\src\txldir3.c
  4. */
  5. #include "txl.h"
  6.  
  7. void rtnmes(char *fname, FILE *fp)
  8. {
  9.     FILE *fr;
  10.     char *ext;
  11.  
  12.     strcpy(line1, inputfile);
  13.     ext = line1 + strlen(line1) - 3;
  14.     strcpy(ext, fname);
  15.     if ((fr = fopen(line1, "rt")) == NULL) {
  16.         fputs("Error:Can't open ??\n", fp);
  17.         return;
  18.     }
  19.     fgets(line2, 80, fr); /* ダミー  FORUM:FTOWNS1    */
  20.     fgets(line2, 80, fr);
  21.     if ((ext = jstrstr(line2, "会議室：")) != NULL) {
  22.         fputs(ext + 8, fp);
  23.     }
  24.     else if (*line2 == '-') {
  25.         *(strchr(line2, NUL) - 3) = NUL;
  26.         if ((ext = strchr(line2, ':')) != NULL) {
  27.             fputs(ext + 1, fp);
  28.         }
  29.         else {
  30.             fputc('\n', fp);
  31.         }
  32.     }
  33.     else { /* リトライ(^^;)    */
  34.         fgets(line2, 80, fr);
  35.         if ((ext = jstrstr(line2, "会議室：")) != NULL) {
  36.             if(*(strchr(line2, NUL) - 2) == '-') {
  37.                 *(strchr(line2, NUL) - 3) = '\n';
  38.                 *(strchr(line2, NUL) - 2) = NUL;
  39.             }
  40.             fputs(ext + 8, fp);
  41.         }
  42.         else if (*line2 == '-') {
  43.             *(strchr(line2, NUL) - 3) = '\n';
  44.             *(strchr(line2, NUL) - 2) = NUL;
  45.             if ((ext = strchr(line2, ':')) != NULL) {
  46.                 fputs(ext + 1, fp);
  47.             }
  48.             else {
  49.                 fputc('\n', fp);
  50.             }
  51.         }
  52.     }
  53.     fclose(fr);
  54. /*    fputc('\n', fp);    */
  55. }
  56.  
  57. void catlogmes(char *fname, FILE *fp)
  58. {
  59.     FILE *fr;
  60.     char *ext;
  61.  
  62.     strcpy(line1, inputfile);
  63.     ext = line1 + strlen(line1) - 3;
  64.     strcpy(ext, fname);
  65.     if ((fr = fopen(line1, "rt")) == NULL) {
  66.         fputs("Error:Can't open ??\n", fp);
  67.         return;
  68.     }
  69.     fgets(line2, 80, fr); /* ダミー  FORUM:FTOWNS1 MES:1    */
  70.     fgets(line2, 80, fr); /* ダミー  ＜FMTOWNS フォーラム1 ＞    FTOWNS1    */
  71.     fgets(line2, 80, fr);
  72.     fclose(fr);
  73.     if (matchstr(logstr_mes2, line2)) {
  74.         ext = strchr(line2, NUL);
  75.         if (matchstr(" %%/%%/%% -", ext - 12)) {
  76.             *(ext - 12) = '\n';
  77.             *(ext - 11) = NUL;
  78.         }
  79.         fputs(strchr(line2, ':') + 1, fp);
  80. /*        fputc('\n', fp);    */
  81.     }
  82.     else if (matchstr(logstr_mes1, line2)) {
  83.         ext = strchr(line2, NUL);
  84.         *(ext - 1) = NUL;
  85.         fputs(line2 + 28, fp);
  86.         fputc('\n', fp);
  87.     }
  88.     else {
  89.         int mes;    /* 行儀悪～い */
  90.         sscanf(fname, "MES%2d", &mes);
  91.         fprintf(fp, "会議室:%d\n", mes);
  92.     }
  93. }
  94.  
  95. void idlog(char *fname, FILE *fp)
  96. {
  97.     FILE *fr;
  98.     char *ext;
  99.  
  100.     strcpy(line1, inputfile);
  101.     ext = line1 + strlen(line1) - 3;
  102.     strcpy(ext, fname);
  103.     if ((fr = fopen(line1, "rt")) == NULL) {
  104.         fputs("Error:Can't open ??\n", fp);
  105.         return;
  106.     }
  107.     fgets(line2, 80, fr); /* HP:PFG02442 / PATIO:PFG02442    */
  108.     fgets(line2, 80, fr); /* ダミー  */
  109.     fgets(line2, 80, fr);
  110.     fclose(fr);
  111.     if (matchstr("- MES(%%):", line2)) {
  112.         ext = strchr(line2, NUL);
  113.         if (matchstr(" %%/%%/%% -", ext - 12)) {
  114.             *(ext - 12) = '\n';
  115.             *(ext - 11) = NUL;
  116.         }
  117.         fputs(strchr(line2, ':') + 1, fp);
  118.     }
  119.     else {
  120.         fputs(line2, fp);
  121. /*        fputc('\n', fp);    */
  122.     }
  123. }
  124.  
  125. void catloglib(char *fname, FILE *fp)
  126. {
  127.     int i;
  128.     FILE *fr;
  129.     char *ext;
  130.  
  131.     strcpy(line1, inputfile);
  132.     ext = line1 + strlen(line1) - 3;
  133.     strcpy(ext, fname);
  134.     if ((fr = fopen(line1, "rt")) == NULL) {
  135.         fputs("Error:Can't open ??\n", fp);
  136.         return;
  137.     }
  138.     fgets(line2, 80, fr);    /* FORUM:FRAV LIB:12    */
  139.     fgets(line2, 80, fr);    /* ＜リアルタイムAV通信フォーラム＞    FRAV */
  140.     fgets(line2, 80, fr);    /* 1:お知らせ            *:掲示板      ...  */
  141.     fgets(line2, 80, fr);    /* 4:データライブラリ    5:会員情報    ...  */
  142.     fgets(line2, 80, fr);    /* 7:SYSOP 宛メール      8:オプション  E:終了 */
  143.     fgets(line2, 80, fr);    /* ＞LIB 12    */
  144.     fgets(line2, 80, fr);
  145.         /* － LIB 12 【通信ツール】各種通信ツール 総数 :73  登録数 :73  － */
  146.  
  147.     fclose(fr);
  148.     if (matchstr("－ LIB", line2)) {
  149.         ext = jstrstr(line2, " 総数 :");
  150.         *ext = '\n';
  151.         *(ext + 1) = NUL;
  152.         ext = line2 + 7;
  153.         for (i = 0; i < 3; i++) {
  154.             if (*ext == ' ') {
  155.                 break;
  156.             }
  157.             ext++;
  158.         }
  159.         if (*ext == ' ') {
  160.             fputs(ext + 1, fp);
  161.         }
  162.         else {
  163.             fputc('\n', fp);    /* こんなはずはない */
  164.         }
  165.     }
  166.     else {
  167.         int lib;    /* 行儀悪～い */
  168.         sscanf(fname, "LIB%2d", &lib);
  169.         fprintf(fp, "ライブラリ:%d\n", lib);
  170.     }
  171. }
  172.  
  173. void catlogmail(char *fname, FILE *fp)
  174. {
  175.     FILE *fr;
  176.     char *ext;
  177.  
  178.     strcpy(line1, inputfile);
  179.     ext = line1 + strlen(line1) - 3;
  180.     strcpy(ext, fname);
  181.     if ((fr = fopen(line1, "rt")) == NULL) {
  182.         fputs("Error:Can't open ??\n", fp);
  183.         return;
  184.     }
  185.     fgets(line2, 80, fr); /* ダミー  MAIL:PFG02442    */
  186.     fgets(line2, 80, fr);
  187.     fclose(fr);
  188.     if (matchstr(logstr_mail, line2) || matchstr(logstr_mail2, line2)) {
  189.         strncpy(log_rhandle, line2 + 4, 16);
  190.         del_tailspace(log_rhandle, 15);
  191.         fprintf(fp, "%sさんからのメール\n", log_rhandle);
  192.     }
  193.     else {
  194.         fputs("メール\n", fp);
  195.     }
  196. }
  197.  
  198. void liblist(char *fname, FILE *fp)
  199. {
  200.     FILE *fr;
  201.     char *ext;
  202. /*
  203. FORUM:FTOWNS2 LIB:9 -------------------------------------- List by FAPX
  204. ＜FMTOWNS フォーラム 2 (応用編) ＞    FTOWNS2
  205. - FTOWNS2  LIB( 9):FYUI専用ﾗｲﾌﾞﾗﾘ(用途は謎･･･)  94/04/19 -
  206. */
  207.     strcpy(line1, inputfile);
  208.     ext = line1 + strlen(line1) - 3;
  209.     strcpy(ext, fname);
  210.     if ((fr = fopen(line1, "rt")) == NULL) {
  211.         fputs("Error:Can't open ??\n", fp);
  212.         return;
  213.     }
  214.     fgets(line2, 80, fr); /* ダミー  FORUM:FTOWNS2    */
  215.     fgets(line2, 80, fr); /* ダミー  ＜FMTOWNS フォーラム 2 (応用編) ＞    */
  216.     fgets(line2, 80, fr);
  217.     fclose(fr);
  218.     if (*line2 == '-') {
  219.         *(line2 + strlen(line2) - 11) = NUL;
  220.         del_tailspace(line2, strlen(line2) - 1);
  221.         if ((ext = strchr(line2, ':')) != NULL) {
  222.             fprintf(fp, "%s\n", ext + 1);
  223.             return;
  224.         }
  225.     }
  226.     fputs("ライブラリリスト\n", fp);
  227. }
  228.